|
Inventor VBA : PDF Export
rkauskh am 12.04.2013 um 12:43 Uhr (0)
HalloCode:Sub PDFExport()Set a reference to the active document (the document to be published). Dim oDocument As Document Set oDocument = ThisApplication.ActiveDocument Dim bErr As Boolean Dim fso As Object Set fso = CreateObject("Scripting.FilesystemObject") Dim ret As Variant Set dDoc = ThisApplication.ActiveDocument If dDoc.FullFileName = "" Then MsgBox "Bitte zuerst die Datei speichern... " Exit Sub End If Get the PDF translator Add-In. Dim PDFAddIn As TranslatorAddIn Set PD ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : PDF Export
Bluejay am 12.04.2013 um 09:54 Uhr (0)
Guten Morgen zusammen,villeicht kann mir ja einer helfen - ich habe folgendes Problem, ich habe das folgenden Makro das mir ein PDF in ein vorgegebenes Verzeichnis aus einer idw exportiert. Leider tut es das nur wenn informationen wie Zeichnungsnumemr + Blatt + Index von unserem Datamanagementsystem in den iprops stehen. Bei nur lokal gespeicherten Dateien gibt es diese iprops nicht. Frage wie kann nich das Programm anpassen, das es mir auch ein pdf exportiert wenn diese info nich vorhanden ist?Anbei der C ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : PDF Export
daywa1k3r am 12.04.2013 um 12:41 Uhr (0)
Hi, probier mal so:Code:Sub PDFExport()Set a reference to the active document (the document to be published). Dim oDocument As Document Set oDocument = ThisApplication.ActiveDocument Dim fso As Object Set fso = CreateObject("Scripting.FilesystemObject") Dim ret As Variant Dim dDoc As Document Set dDoc = ThisApplication.ActiveDocument If dDoc.FullFileName = "" Then MsgBox "Bitte zuerst die Datei speichern... " Exit Sub End If Get the PDF translator ...
| | In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
